home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / i98patch.exe / ALIASES.INI < prev    next >
Encoding:
INI File  |  1997-01-24  |  22.6 KB  |  414 lines
  1. [Aliases]
  2. n0=nlist echo 3 Nick List --> 1 %nick1 2 %nick2 3 %nick3 4 %nick4 5 %nick5 6 %nick6 7 %nick7 8 %nick8 9 %nick9 10 %nick10
  3. n1=n1 nick %nick1
  4. n2=n2 nick %nick2
  5. n3=n3 nick %nick3
  6. n4=n4 nick %nick4
  7. n5=n5 nick %nick5
  8. n6=n6 nick %nick6
  9. n7=n7 nick %nick7
  10. n8=n8 nick %nick8
  11. n9=n9 nick %nick9
  12. n10=n10 nick %nick10
  13. n11=j1 join %join1
  14. n12=j2 join %join2
  15. n13=j3 join %join3
  16. n14=j4 join %join4
  17. n15=j5 join %join5
  18. n16=j6 join %join6
  19. n17=j7 join %join7
  20. n18=j8 join %join 8
  21. n19=j9 join %join9
  22. n20=j10 join %join10
  23. n21=jlist echo 3 Favourite Channel List --> 1 %join1 2 %join2 3 %join3 4 %join4 5 %join5 6 %join6 7 %join7 8 %join8 9 %join9 10 %join10
  24. n22=k kick $chan $$1 *2 9*1ManualKick9* %ind
  25. n23=bk ban $chan $$1 2 | kick $chan $$1 *2 9*1ManualKick&Ban9* %ind
  26. n24=tbk ban -u15 $$1 2 | kick $chan $$1 *2 9*1ManualKick&15SecondBan9* %ind
  27. n25=/clones {
  28. n26=  if ($1 == $null) { echo 4 -s Error: type: /clones -e  to echo it to yourself. Type: /clones -c  to let the channel see it | halt }
  29. n27=  if (# == $null) { echo 4 -s Error, try using this in the channel window! | halt } | write -c $mircdir $+ raw.txt
  30. n28=  if ($1 == -e) { echo  10Searching for clones %ind | set %total 0 | set %option 1 | set %chan # | write $mircdir $+ raw.txt /echo 4 # 10Clones on # | .enable #clones | who # }
  31. n29=  if ($1 == -c) { msg # 10Searching for clones %ind | set %total 0 | set %option 2 | set %chan # | write $mircdir $+ raw.txt /msg # 10Clones on # | .enable #clones | who # }
  32. n30=}
  33. n32=/repeat say *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1 *1
  34. n34=/chat dcc chat $$1 | dcc chat $2 | dcc chat $3 | dcc chat $4
  35. n35=/spy msg %spyer < $me > *1 | say *1
  36. n39=jall join %join1 | join %join2 | join %join3 | join %join4 | join %join5 | join %join6 | join %join7 | join %join8 | join %join9 | join %join10
  37. n40=serv quit Changing Servers -- $server $port ---> *1 %ind | server *1
  38. n43=banp if ($banmask iswm $address($me,1)) { mode $chan -ob+b $nick $banmask $address($nick,4) | msg chanserv op $chan $me | msg chanserv unban $chan me | msg chanserv deop $chan $nick | kick $chan $nick Don't try and ban me again, you fool. %akb %ind | wri BAN =SELF= -> $banmask was banned by $nick ( $+ $address($nick,1) $+ ) in $chan | s9 } | elseif $level($banmask) == 25 || $level($banmask) == 5 || level($banmask) == 4 { mode $chan -bo $banmask $nick | notice $nick $banmask is a 4PROTECTED address %ind | wri BAN =FRIEND= -> $banmask was banned by $nick ( $+ $address($nick,1) $+ ) in $chan }
  39. n44=wave splay $file *.*
  40. n45=down splay $file C:\modem\down\*.*
  41. n47=hugs me 0,12*0,13H0,12u0,13G0,12G0,13L0,12e0,13S0,12* *1
  42. n48=kisses me 0,13*0,4K0,13i0,4S0,13S0,4L0,13e0,4S0,13* *1
  43. n49=cs msg chanserv *1
  44. n50=ns msg nickserv *1
  45. n51=ms query memoserv | msg memoserv *1
  46. n52=l whois $$1 | echo $$1 $+ 's nick is at level $level($$1) $+ , and their mask is at level $level($address($$1,3))
  47. n54=zop /msg nickserv access add *@*.* | msg chanserv op $chan $$1 $2 $3 $4 $5 | msg nickserv access del *@*.*
  48. n55=zop2 if $$2 == $null { halt } | msg nickserv access add *@*.* | msg chanserv op $$1 $$2 $3 $3 $4 $5 | msg nickserv access del *@*.*
  49. n56=color echo 1 1Color 1 2Color 2 3 Color 3 4 Color 4 5 Color 5 6 Color 6 7 Color 7 8 Color 8 9 Color 9 10 Color 10 11 Color 11 12 Color 12 13 Color 13 14 Color 14 15 Color 15 16 Color 16
  50. n57=color2 say 1Black 2Dk. Blue 3Green 4Red 5Orange 6Purple 7Olive 8Yellow 9Lt. Green 10Teal 11Lt. Blue 12Blue 13Pink 14Grey 15Lt. Grey 16 Color 16
  51. n58=id echo 2 Sending NickServ password information... | .msg nickserv identify %npass 
  52. n59=logs run notepad $mircdirlogfile.txt | splay logsacc.wav
  53. n60=notes run c:\windows\notepad.exe $mircdirnotes.txt | s1
  54. n61=hop me is hopping from $chan to $$1 %ind | part $chan %ind | join $$1
  55. n62=m query $$1 | msg $$1 *2
  56. n63=aw set %gonesince $timestamp | s3 | set %awaymsg $$?="Why are you away?" | s4 | away since  $timestamp  on $day -- Reason -> 12 %awaymsg  <- Use /CTCP $me PAGE [reason] to try and page me %ind | set %awaynick $me | aaaa
  57. n64=back away | ame is BACK %ind | .timer7 off | unset %awaymsg | s2
  58. n65=qquit splay autoshut.wav | quit *1
  59. n66=fquit quit Local kill by IRCop (I don't need to give a damn reason(*BANG*)))
  60. n67=f12 ignore *!*@* | echo 4 Now ignoring EVERYONE | s10
  61. n68=f11 ignore -r *!*@*
  62. n69=recho echo $1 .x(-/-)x. *2
  63. n70=j2 { join $$1 $+ $chr(160) $+ $$2 $+ $chr(160) $+ $3 $+ $chr(160) $+ $4 $+ $chr(160) $+ $5 $+ $chr(160) $+ $6 }
  64. n71=fq quit wiznet-hub.fl.us.dal.net skypoint.mn.us.dal.net
  65. n72=aaaa ame is AWAY <<<  $+ %awaymsg $+  >>> /CTCP $me PAGE [reason] %ind | .timer7 0 240 /aaa2
  66. n73=aaa2 ame is AWAY <<<  $+ %awaymsg $+  >>> /CTCP $me PAGE [reason] %ind | ame has been gone since %gonesince $+ . It's now $timestamp AutoAwayMsg | away since  %gonesince  It's now  $timestamp  -- Reason -> 12 %awaymsg  <- Use /CTCP $me PAGE [reason] to try and page me %ind
  67. n74=spaway away since  %gonesince  It's now  $timestamp  -- Reason -> 12 %awaymsg  <- Use /CTCP $me PAGE [reason] to try and page me %ind
  68. n75=f10 clear
  69. n76=i mode $me +i
  70. n77=friend auser 50 $$1 | guser 50 $$1 3
  71. n78=autoop auser 25 $$1 | guser 25 $$1 3
  72. n79=prot auser 5 $$1 | guser 5 $$1 3
  73. n80=master auser 4 $$1 | guser 4 $$1 3
  74. n81=blist ignore -nti $$1 3 | guser 150 $$1 3 | notice $$1 You have been =BLACKLISTED!!= | kick # $$1 =BLACKLISTED= | wri BLACKLIST =ASSIGN= -> You blacklisted $$1 with the reason of $2
  75. n82=rn ruser $$1
  76. n83=rm ruser $$1 3
  77. n84=unblist ruser $$1 3 | ignore -rnti $$1 3
  78. n85=clone run $mircdirmirc32.exe
  79. n86=f7 /msg chanserv access $chan
  80. n87=f /rlevel -r 101,102,103,104,105
  81. n88=voice mode $chan +v $$1
  82. n89=wri write $mircdirlogfile.txt $adate $+ -- $+ $time *1
  83. n90=gag /mode $chan +b-o $address($$1,1) $$1 | /describe $chan puts a gag on $$1 $+ . AutoResponse
  84. n91=icmp /run $mircdirbin\ping.exe -l $$?="Enter PacketSize:" -t $$?="Enter IP to Flood:" | /echo Parameters /icmp <IP> <Packetsize> | /echo IP: their ip.. for instance.. yours is $ip $+ . | /echo Packetsize: Recommended at 20000
  85. n92=ig /notice $$1 CONGRATS $$1 . You've been added to $me 's ignore list!!! Have a nice day! | /ignore $$1
  86. n93=igf /notice $$1 CONGRATS $$1 . You've been added to $me 's ignore list!!! Have a nice day!
  87. n94=clean unset %kchan | unset %knick | .disable #beenkicked | .disable #beendeopped | .unset %dchan | .unset %dnick | .disable #beenkicked2 | .disable #beendeopped2 | echo 3 Revenge and Temporary protection variables have been cleaned %ind
  88. n95=aop /msg chanserv aop $chan add $$1 | /kick $chan $$1 You're an AOP! Rejoin! AutoKick
  89. n96=sop /msg chanserv sop $chan add $$1 | /kick $chan $$1 You're an SOP! Feel the *POWER* Rejoin! AutoKick
  90. n97=fon notice $$1 2OpNotice/12I15n14di15g12o12 $+ $chan $+ 2-> *2
  91. n98=pon /notice $$1 2PrivateNotice-> *2 %ind
  92. n99=on .onotice 2OpNotice/12I14n15di14g12o/12 $+ $chan $+ 2-> *1 | echo -> 2OpNotice/12I14n15di14g12o/12 $+ $chan $+ 2-> *1
  93. n100=om /omsg OpMSG/ $+ $chan $+ -> *1
  94. n101=q notice $chan ==...a 4*hot* breeze blows by, and as a puff of 12blue 14smoke appears, the mysterious $me 15vanishes...== | leave $chan "Remember....." %ind
  95. n102=q2 notice $chan ... $+ $read $mircdir\quit.txt %ind | leave $chan "Remember......." %ind
  96. n103=cdeop /msg chanserv deop $chan $$1 $2 $3 $4 $5 $6 $7 $8 $9 $10
  97. n104=f6 /msg nickserv ghost $$?="Nick to be ghosted?" %npass | enable #ghosted | set %gnick $!
  98. n105=f3 /msg chanserv unban $chan all
  99. n106=sping /ctcp nickserv,chanserv ping
  100. n107=hi /say *1 $+ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  101. n108=hi2 /say !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!*************************{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{ $$1 }}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}***************************!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  102. n109=unban /msg chanserv unban $$1 me
  103. n110=desc /say %agesex AutoReply
  104. n111=cping ctcp $chan ping | /describe $chan pings the whole channel.
  105. n112=cop /msg chanserv op $chan $$1 $2 $3 $4 $5
  106. n113=ghost msg nickserv ghost $$1 %npass | enable #ghosted | set %gnick $$1
  107. n114=op /.raw mode # +oooo $$1 $2 $3 $4
  108. n115=deop /.raw mode # -oooo $$1 $2 $3 $4
  109. n116=n /names #$$1
  110. n117=w /whois $$1
  111. n118=idle /set -q %chan & $+ $r(A,Z) $+ $r(1,9) $+ $r(a,z) $+ $r(1,9) | /join %chan | /mode %chan +stin | /timer9 off | /timer9 0 30 /describe %chan --stσtic'96--  [ANTI-PING] | /set -q %idle Yes
  112. n119=unidle /timer9 off | /part %chan | /set -q %idle No
  113. n120=send /dcc send $1 $2
  114. n121=chat dcc chat $1
  115. n122=p ctcp $$1 ping
  116. n123=j join #$$1
  117. n124=top topic # *1
  118. n125=ver ctcp $$1 version
  119. n126=lol me is LauGHiNG out  {{L o U d}} 
  120. n127=rotfl me is RoLLiNG on the floor {{L a U g H i N G}}
  121. n128=f2 msg chanserv op $chan $me
  122. n129=globnot raw notice %glob :[Global Notice] *1 [Please do not reply]
  123. n130=globnot2 raw notice $*203.16.60.126 :[Global Notice] *1 [Please do not reply]203.16.60.126
  124. n131=bh {
  125. n132=splay working.wav    
  126. n133=set %Count 1
  127. n134=:cont
  128. n135=inc %Count 1
  129. n136=if ($level($address($nick(%count,#),3)) == 150) {
  130. n137=kick # $nick(%Count,#) So, $nick(%count,#) $+ , you joined while I was gone, eh? *Blacklist Helper* %ind | wri BLACKLIST =HELPER= -> $nick(%count,#) ( $+ $address($nick(%count,#),1) $+ ) was already on $chan }
  131. n138=if (%Count > $nick(0,#)) { goto end }
  132. n139=goto cont
  133. n140=:end
  134. n141=unset %Count
  135. n142=splay analys~1.wav
  136. n143=echo 5 Scan complete.
  137. n144=}
  138. n145=fk {
  139. n146=splay working.wav        
  140. n147=set %Count 1
  141. n148=:cont
  142. n149=inc %Count 1
  143. n150=if ($$1 iswm $address($nick(%Count,$chan),1)) {
  144. n151=  kick # $nick(%Count,#) Filter Kick of $$1 %ind
  145. n152=}
  146. n153=if (%Count > $nick(0,$chan)) { goto end }
  147. n154=goto cont
  148. n155=:end
  149. n156=unset %Count
  150. n157=}
  151. n158=}
  152. n159=cstat { 
  153. n160=splay working.wav   
  154. n161=if ($2 != $null) %cstat = msg $2
  155. n162=/set %chanst on
  156. n163=/set %hops 0 | /set %anum 0 | /set %opnum 0 | /set %unum 0 | /set %ircops 0 | /set %nopnum 0 | /set %clones 0 | /set %addies | /set %here 0 | /msg $chan Gathering Channel Statistics....................
  157. n164=if ($1 != $null) /who  $1
  158. n165=if ($1 == $null) /who #
  159. n166=}
  160. n167=lc {
  161. n168=splay working.wav    
  162. n169=unset %addies
  163. n170=set %cl 0
  164. n171=set %num 0
  165. n172=msg # Indigo '98 Listing Clones on: = $+ # $+ =
  166. n173=set %cl 0
  167. n174=:mid
  168. n175=inc %cl
  169. n176=%temp1 = $nick(%cl,#)
  170. n177=if (%temp1 == $null) { msg # Total Clones Detected:  $+ %num $+  | halt }
  171. n178=%thisad = $address(%temp1,3)
  172. n179=if (%thisad isin %addies) { /inc %num | msg # (Clone %num $+ ) $address(%temp1,1) | goto mid }
  173. n180=set %addies %addies %thisad
  174. n181=goto mid
  175. n182=}
  176. n183=cbk {
  177. n184=splay working.wav      
  178. n185=%message = Clone Filter KickBan %ind
  179. n186=if ($1 != $null) %message = *1
  180. n187=unset %addies
  181. n188=set %cl 0
  182. n189=set %num 0
  183. n190=:med
  184. n191=set %cl 0
  185. n192=:mid
  186. n193=inc %cl
  187. n194=%temp1 = $nick(%cl,#)
  188. n195=if (%temp1 == $null) { halt }
  189. n196=%thisad = $address(%temp1,3)
  190. n197=if (%thisad isin %addies) { /inc %num | /mode # -o+b %temp1 $address(%temp1,3) |  kick # %temp1 %message | goto mid }
  191. n198=set %addies %addies %thisad
  192. n199=goto mid
  193. n200=}
  194. n201=invitek if $nick isop $chan { halt } | else ban $chan $nick 2 | kick $chan $nick 114Inviting/advertizing11 is not allowed on this channel. %akb %ind | s12 | wri KICK =INVITE= -> You kicked $nick ( $+ $address($nick,1) $+ ) from $chan
  195. n202=invitek2 if $nick !isop $chan(1) { ban $chan(1) $nick 2 | kick $chan(1) $nick 114Inviting/advertizing11 is not allowed on this channel. %akb %ind | wri KICK =INVITE= -> You kicked $nick ( $+ $address($nick,1) $+ ) from $chan(1) } | if $nick !isop $chan(2) { ban $chan(2) $nick 2 | kick $chan(2) $nick 114Inviting/advertizing11 is not allowed on this channel. %akb %ind | wri KICK =INVITE= -> You kicked $nick ( $+ $address($nick,1) $+ ) from $chan(2) } | if $nick !isop $chan(3) { ban $chan(3) $nick 2 | kick $chan(3) $nick 114Inviting/advertizing11 is not allowed on this channel. %akb %ind }
  196. n203=opk if $nick isop $chan { halt } | else kick $chan $nick 114Asking for ops11 is considered rude. Please don't ask again. *AutoKick* %ind | s12 | wri KICK =OP= -> You kicked $nick ( $+ $address($nick,1) $+ ) from $chan
  197. n204=ask if $nick isop $chan { halt } | else ban -u15 $chan $nick 3 | /kick $chan $nick 114Age11 and 114Sex11 checks are done in private on this channel. *AutoKick&15SecondBan* %ind | s12 | wri KICK =AGE/SEX= -> You kicked $nick ( $+ $address($nick,1) $+ ) from $chan
  198. n205=pressk if $nick isop $chan { halt } | else kick $chan $nick Please don't ask people to 114press certain #'s11. Ask them to /MSG you instead. Thanks. *AutoKick* %ind | s12 | wri KICK =PRESS= You kicked $nick from $chan  
  199. n206=tsufld if $nick isop $chan { halt } | else echo 6 # Tsunami Flood From $nick ( $+ $address $+ ) at $time, $date | ignore -ut30 $nick 3 | ban $chan $nick 2 | kick $chan $nick 114Possible Tsunami Flood11 detected! %akb %ind | s5 | wri FLOOD =TSUNAMI= -> from $nick ( $+ $address($nick,1) $+ ) on $chan
  200. n207=notirc echo 4 $notify(0) people are on IRC that you know.
  201. n208=moronk if $nick isop $chan { halt } | else ban $chan $nick 2 | kick $chan $nick 114Racist11 and 114Bigoted11 people aren't allowed on this channel. %akb %ind | s12 | wri KICK =MORON= -> You kicked $nick from $chan
  202. n209=sweark if $nick isop $chan { halt } | else kick $chan $nick 114Swearing11 isn't allowed on this channel. *AutoKick* %ind | s12 | wri KICK =SWEAR= -> You kicked $nick from $chan
  203. n210=s1 splay sfxbe~18.wav
  204. n211=s2 splay sfxbee~9.wav
  205. n212=s3 splay define.wav
  206. n213=s4 splay affirm~1.wav
  207. n214=s5 splay warning.wav
  208. n215=s6 splay sfxbe~20.wav
  209. n216=s7 splay sfxbe~16.wav
  210. n217=s8 splay sfxbee~6.wav
  211. n218=s9 splay automa~1.wav
  212. n219=s10 splay sfxwar~4.wav
  213. n220=s11 splay sfxbe~15.wav
  214. n221=s12 splay sfxbe~14.wav
  215. n222=cuser if (%hash isin $active) { titlebar Indigo '98 - $active $+ : $nick(0,$active) Users, $opnick(0,$active) Ops, and $nopnick(0,$active) non Ops. | set %titlebar Indigo '98 - $active $+ : $nick(0,$active) Users, $opnick(0,$active) Ops, and $nopnick(0,$active) non Ops. }
  216. n223=/co2 {
  217. n224=if ($1 = $null) { /echo 4 You Gotta Type Something %ind | halt }
  218. n225=set %col 0 
  219. n226=:start
  220. n227=unset %1color
  221. n228=inc %col
  222. n229=set %letter 0
  223. n230=if ($ [ $+ [ %col ] ] = $null) /goto end
  224. n231=set %color $ [ $+ [ %col ] ]
  225. n232=set %-color $len(%color)
  226. n233=:letter
  227. n234=inc %letter
  228. n235=if (%letter > %-color) { 
  229. n236=if (%colors = $null) { set %colors %1color | goto start } 
  230. n237=set %colors %colors %1color | goto start 
  231. n238=}
  232. n239=if (%1color = $null) { set %1color  $+ $rand(1,15) $+ $mid(%letter,1,%color) | goto letter }
  233. n240=set %1color %1color $+  $+ $rand(1,15) $+ $mid(%letter,1,%color)
  234. n241=goto letter
  235. n242=:end
  236. n243=say %colors | unset %colors | unset %1color | unset %letter | unset %col | unset %-color | unset %color
  237. n244=}
  238. n245=/me2 {
  239. n246=if ($1 = $null) { /echo 4 You Gotta Type Something | halt }
  240. n247=set %col 0 
  241. n248=:start
  242. n249=unset %1color
  243. n250=inc %col
  244. n251=set %letter 0
  245. n252=if ($ [ $+ [ %col ] ] = $null) /goto end
  246. n253=set %color $ [ $+ [ %col ] ]
  247. n254=set %-color $len(%color)
  248. n255=:letter
  249. n256=inc %letter
  250. n257=if (%letter > %-color) { 
  251. n258=if (%colors = $null) { set %colors %1color | goto start } 
  252. n259=set %colors %colors %1color | goto start 
  253. n260=}
  254. n261=if (%1color = $null) { set %1color  $+ $rand(1,15) $+ $mid(%letter,1,%color) | goto letter }
  255. n262=set %1color %1color $+  $+ $rand(1,15) $+ $mid(%letter,1,%color)
  256. n263=goto letter
  257. n264=:end
  258. n265=me %colors | unset %colors | unset %1color | unset %letter | unset %col | unset %-color | unset %color
  259. n266=}
  260. n267=/co {
  261. n268=if ($1 = $null) { /echo 4 You Gotta Type Something %ind | halt }
  262. n269=set %col 0 
  263. n270=:start
  264. n271=unset %1color
  265. n272=inc %col
  266. n273=set %letter 0
  267. n274=if ($ [ $+ [ %col ] ] = $null) /goto end
  268. n275=set %color $ [ $+ [ %col ] ]
  269. n276=set %-color $len(%color)
  270. n277=:letter
  271. n278=inc %letter
  272. n279=if (%letter > %-color) { 
  273. n280=if (%colors = $null) { set %colors %1color | goto start } 
  274. n281=set %colors %colors %1color | goto start 
  275. n282=}
  276. n283=:let
  277. n284=set %c $rand(1,15)
  278. n285=if (%c = 8) /goto let
  279. n286=if (%c = 9) /goto let
  280. n287=if (%1color = $null) { set %1color  $+ %c $+ $mid(%letter,1,%color) | goto letter }
  281. n288=set %1color %1color $+  $+ %c $+ $mid(%letter,1,%color)
  282. n289=goto letter
  283. n290=:end
  284. n291=say %colors | unset %colors | unset %1color | unset %letter | unset %col | unset %-color | unset %color | unset %c
  285. n292=}
  286. n293=clonestopper {
  287. n294=set %nopnick 0
  288. n295=set %c 0
  289. n296=:next
  290. n297=inc %nopnick 1
  291. n298=if $nopnick(%nopnick,$chan) == $null goto done
  292. n299=if $address($nick,3) == $address($nopnick(%nopnick,$chan),3) && $nick != $nopnick(%nopnick,$chan) goto clone
  293. n300=else goto next
  294. n301=:clone
  295. n302=inc %c 1
  296. n303=set %clone $+ [ %c ] $nopnick(%nopnick,$chan)
  297. n304=goto next
  298. n305=:clone1
  299. n306=if $opnick(0,$chan) > 1 onotice $chan =CloneDetected= --> $nick is a clone of %clone1 - $address($nick,3) %ind
  300. n307=echo 4 =CloneDetected= --> $nick is a clone of %clone1 - $address($nick,3) %ind
  301. n308=notice $nick Clones are not allowed in $chan .If you have a ghost, type /msg nickserv ghost nickname <pswd> or message an op please. %ind
  302. n309=notice %clone1 Clones are not allowed in $chan if you have a ghost, type /msg nickserv ghost nickname <pswd> or message an op please. %ind
  303. n310=if $opnick(0,$chan) > 1 .onotice $chan $nick and %clone1 have been notified %ind
  304. n311=echo 4 $nick and %clone1 have been notified %ind
  305. n312=goto end
  306. n313=:clone2
  307. n314=ban $chan $nick 2
  308. n315=kick $chan $nick *AutoCloneKick* %ind
  309. n316=kick $chan %clone1 *AutoCloneKick* %ind
  310. n317=kick $chan %clone2 *AutoCloneKick* %ind
  311. n318=if $opnick(0,$chan) > 1 onotice $chan 4=MultipleClonesDetected!= %ind
  312. n319=echo 4 $active 4=MultipleClonesDetected!= %ind
  313. n320=if $opnick(0,$chan) > 1 onotice $chan $address($nick,3) Banned, and nicks have been flushed from $chan %ind
  314. n321=echo 4 $active = $+ CloneStopper $+ = $address($nick,3) Banned, and nicks have been flushed from $chan %ind
  315. n322=goto end
  316. n323=:done
  317. n324=if %c == 0 goto end
  318. n325=elseif %c == 1 goto clone1
  319. n326=else goto clone2
  320. n327=:end
  321. n328=unset %clone*
  322. n329=unset %nopnick
  323. n330=unset %c
  324. n331=halt
  325. n332=}
  326. n333=/e { set %Secret *1 
  327. n334=set %secret $Replace(%secret,b,▐) 
  328. n335=set %secret $Replace(%secret,a,σ) 
  329. n336=set %secret $Replace(%secret,d,╥) 
  330. n337=set %secret $Replace(%secret,c,µ)
  331. n338=set %secret $Replace(%secret,f,■)
  332. n339=set %secret $Replace(%secret,e,τ)
  333. n340=set %secret $Replace(%secret,h,ñ)
  334. n341=set %secret $Replace(%secret,g,Φ)
  335. n342=set %secret $Replace(%secret,j, ) 
  336. n343=set %secret $Replace(%secret,i,Θ)
  337. n344=set %secret $Replace(%secret,l,Σ)
  338. n345=set %secret $Replace(%secret,k,Ω)
  339. n346=set %secret $Replace(%secret,n,▄)
  340. n347=set %secret $Replace(%secret,m,δ)
  341. n348=set %secret $Replace(%secret,p,░)
  342. n349=set %secret $Replace(%secret,o,∞) 
  343. n350=set %secret $Replace(%secret,r,ª)
  344. n351=set %secret $Replace(%secret,q,φ)
  345. n352=set %secret $Replace(%secret,t,+)
  346. n353=set %secret $Replace(%secret,s,ε)
  347. n354=set %secret $Replace(%secret,v,ⁿ)
  348. n355=set %secret $Replace(%secret,u,∩)
  349. n356=set %secret $Replace(%secret,x,α)
  350. n357=set %secret $Replace(%secret,w,≡)
  351. n358=set %secret $Replace(%secret,z,─)
  352. n359=set %secret $Replace(%secret,y,±)
  353. n360=//say %secret
  354. n361=}
  355. n362=/bco {
  356. n363=set %i $replace(*1,$chr(32),á) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  357. n364=:loop
  358. n365=set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  359. n366=inc %p
  360. n367=if ( $mid(%p,1,%i) != á) { inc %c }
  361. n368=if ( %c > 6 ) { set %c 1 }
  362. n369=if ( $mid(%p,1,%i) != $null ) { goto loop }
  363. n370=say %o
  364. n371=unset %o %i %p %c
  365. n372=}
  366. n373=cl {
  367. n374=splay working.wav    
  368. n375=set %Count 0
  369. n376=:cont
  370. n377=inc %Count 1
  371. n378=if ($level($address($nick(%count,#),3)) == 50) {
  372. n379=set %level1 $nick(%count,#) %level1 }
  373. n380=if ($level($address($nick(%count,#),3)) == 25) {
  374. n381=set %level2 $nick(%count,#) %level2 }
  375. n382=if ($level($address($nick(%count,#),3)) == 5) {
  376. n383=set %level3 $nick(%count,#) %level3 }
  377. n384=if ($level($address($nick(%count,#),3)) == 4) {
  378. n385=set %level4 $nick(%count,#) %level4 }
  379. n386=if (%Count > $nick(0,#)) { goto end }
  380. n387=goto cont
  381. n388=:end
  382. n389=unset %Count
  383. n390=splay analys~1.wav
  384. n391=if %level1 == $null { set %level1 None }
  385. n392=if %level2 == $null { set %level2 None } 
  386. n393=if %level3 == $null { set %level3 None }
  387. n394=if %level4 == $null { set %level4 None } 
  388. n395=msg $chan Users on this channel whose masks are in my user list %ind
  389. n396=msg $chan Level 1 Users - %level1
  390. n397=msg $chan Level 2 Users - %level2
  391. n398=msg $chan Level 3 Users (Protected) - %level3
  392. n399=msg $chan Level 44 Users (MASTER) - %level4
  393. n400=unset %level*
  394. n401=}
  395. n402=fcop if ($chan == %schan) || ($chan == %schan2) { notice $nick =Op Request= *refused* - Invalid channel %ind } | elseif ($nick isop $chan) { notice $nick You requested ops? You're ALREADY opped! :P =AutoResponse= %ind } | else { mode $chan +o $nick | msg $chan =Op requested by $nick $+ = %ind | s12 }
  396. n403=fck if ($parm2 == $me)  { mode $chan -o+b $nick $address($nick,4) | kick $chan $nick HAHA! And you're supposed to be my FRIEND, huh? :) %akb %ind } | elseif ($level($parm2($address,4)) <= 25) { describe $chan refuses to kick $parm2 $+ ! } | else { kick $chan $parm2 $parm3* *Kick Requested by $nick $+ * %ind | s12 }
  397. n404=fcb if ($parm2 == $me) { mode $chan -o+b $nick $address($nick,4) | kick $chan $nick HAHA! And you're supposed to be my FRIEND, huh? :) %akb %ind } | else { ban $chan $parm2 | msg $chan =Ban on $parm2 requested by $nick $+ = %ind | s12 }
  398. n405=fcd if ($parm2 == $me) { mode $chan -o+b $nick $address($nick,4) | kick $chan $nick HAHA! And you're supposed to be my FRIEND, huh? :) %akb %ind } | else { mode $chan -o $parm2 | msg $chan =Deop of $parm2 requested by $nick $+ = %ind | s12 }
  399. n406=pervc if %perv1 isin $parms || %perv2 isin $parms || %perv3 isin $parms || %perv4 isin $parms || %perv5 isin $parms || %perv6 isin $parms || %perv7 isin $parms || %perv8 isin $parms { halt }
  400. n407=pervscan {
  401. n408=.enable #pervscan
  402. n409=.timer 1 60 .disable #pervscan
  403. n410=splay working.wav    
  404. n411=set %Count 0
  405. n412=:cont
  406. n413=inc %Count 1
  407. n414=whois $nick(%count,#)
  408. n415=if (%Count > $nick(0,#)) { goto end }
  409. n416=goto cont
  410. n417=:end
  411. n418=unset %Count
  412. n419=splay analys~1.wav
  413. n420=}
  414.